From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Jun 1997 00:33:14 +0000 (+0000)
Subject: (map_char_table): Use XSETFASTINT.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80965
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=09ee221d202e4a7f2876f6c7295aed6a87555dac;p=emacs.git

(map_char_table): Use XSETFASTINT.
---

diff --git a/src/fns.c b/src/fns.c
index 69bcb6f7d86..24c737141cc 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1457,7 +1457,7 @@ map_char_table (c_function, function, subtable, arg, depth, indices)
     {
       Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i];
 
-      indices[depth] = i;
+      XSETFASTINT (indices[depth], i);
 
       if (SUB_CHAR_TABLE_P (elt))
 	{